home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / rtx2000.zip / rtx2000 / fctest.lst < prev    next >
File List  |  1993-09-01  |  16KB  |  493 lines
  1.                   SHIFT_TEST
  2.    0       a001      0< 
  3.    2       a002      2* 
  4.    4       a003      2*c 
  5.    6       a004      cU2/ 
  6.    8       a005      c2/ 
  7.    a       a006      U2/ 
  8.    c       a007      2/ 
  9.    e       a008      N2* 
  10.   10       a009      N2*c 
  11.   12       a00a      D2* 
  12.   14       a00b      D2*c 
  13.   16       a00c      cUD2/ 
  14.   18       a00d      cD2/ 
  15.   1a       a00e      UD2/ 
  16.   1c       a00f      D2/ 
  17.   1e       a020      NOP 
  18.                   ;
  19.                   
  20.                   ALU_OPS
  21.   20       a240      AND 
  22.   22       a240      AND 
  23.   24       ac40      - 
  24.   26       a440      SWAP - 
  25.   28       a640      OR 
  26.   2a       a640      OR 
  27.   2c       a840      + 
  28.   2e       a840      + 
  29.   30       aa40      XOR 
  30.   32       aa40      XOR 
  31.   34       a340      NOR 
  32.   36       a340      NOR 
  33.   38       ad40      -c 
  34.   3a       a540      SWAP -c 
  35.   3c       a740      NAND 
  36.   3e       a740      NAND 
  37.   40       a940      +c 
  38.   42       a940      +c 
  39.   44       ab40      XNOR 
  40.   46       ab40      XNOR 
  41.   48       a020      NOP 
  42.                   ;
  43.                   
  44.                   INVERT_SHIFT_OPTIONAL
  45.   4a       ae00      DROP DUP 
  46.   4c       ae02      DROP DUP 2* 
  47.   4e       af00      DROP DUP NOT 
  48.   50       af02      DROP DUP NOT 2* 
  49.   52       a040      SWAP DROP 
  50.   54       a042      SWAP DROP 2* 
  51.   56       a140      SWAP DROP NOT 
  52.   58       a142      SWAP DROP NOT 2* 
  53.   5a       ae40      DROP 
  54.   5c       ae42      DROP 2* 
  55.   5e       af40      DROP NOT 
  56.   60       af42      DROP NOT 2* 
  57.   62       a080      SWAP DROP DUP 
  58.   64       a082      SWAP DROP DUP 2* 
  59.   66       a180      SWAP DROP DUP NOT 
  60.   68       a182      SWAP DROP DUP NOT 2* 
  61.   6a       ae80      SWAP 
  62.   6c       ae82      , SWAP 2* 
  63.   6e       af80      SWAP NOT 
  64.   70       af82      SWAP NOT 2* 
  65.   72       a0c0      DUP 
  66.   74       a0c2      DUP 2* 
  67.   76       a1c0      DUP NOT 
  68.   78       a1c2      DUP NOT 2* 
  69.   7a       aec0      OVER 
  70.   7c       aec2      , OVER 2* 
  71.   7e       afc0      OVER NOT 
  72.   80       afc2      OVER NOT 2* 
  73.   82   aec0aec0      OVER OVER 
  74.   86   aec0aec2      OVER OVER 2* 
  75.   8a   aec0afc0      OVER OVER NOT 
  76.   8e   aec0afc2      OVER OVER NOT 2* 
  77.   92   aec0ae80      OVER SWAP 
  78.   96   aec0ae82      OVER SWAP 2* 
  79.   9a   aec0af80      OVER SWAP NOT 
  80.   9e   aec0af82      OVER SWAP NOT 2* 
  81.   a2   ae80aec0      SWAP OVER 
  82.   a6   ae80aec2      SWAP OVER 2* 
  83.   aa   ae80afc0      SWAP OVER NOT 
  84.   ae   ae80afc2      SWAP OVER NOT 2* 
  85.   b2   be15aec0      21 g@ OVER 
  86.   b6   be15aec2      21 g@ OVER 2* 
  87.   ba   be15afc0      21 g@ OVER NOT 
  88.   be   be15afc2      21 g@ OVER NOT 2* 
  89.   c2   be55aec0      21 OVER 
  90.   c6   be55aec2      21 OVER 2* 
  91.   ca   be55afc0      21 OVER NOT 
  92.   ce   be55afc2      21 OVER NOT 2* 
  93.   d2   be55ae80      21 SWAP 
  94.   d6   be55ae82      21 SWAP 2* 
  95.   da   be55af80      21 SWAP NOT 
  96.   de   be55af82      21 SWAP NOT 2* 
  97.   e2   bf40ae80      -1 SWAP 
  98.   e6   bf40ae82      -1 SWAP 2* 
  99.   ea   bf40af80      -1 SWAP NOT 
  100.   ee   bf40af82      -1 SWAP NOT 2* 
  101.   f2   ce15aec0      21 u@ OVER 
  102.   f6   ce15aec2      21 u@ OVER 2* 
  103.   fa   ce15afc0      21 u@ OVER NOT 
  104.   fe   ce15afc2      21 u@ OVER NOT 2* 
  105.  102   ee00aec0      @ OVER 
  106.  106   ee00aec2      @ OVER 2* 
  107.  10a   ee00afc0      @ OVER NOT 
  108.  10e   ee00afc2      @ OVER NOT 2* 
  109.  112   fe00aec0      c@ OVER 
  110.  116   fe00aec2      c@ OVER 2* 
  111.  11a   fe00afc0      c@ OVER NOT 
  112.  11e   fe00afc2      c@ OVER NOT 2* 
  113.  122   de005555      21845
  114.  126       aec0      OVER 
  115.  128   de005555      21845
  116.  12c       aec2      OVER 2* 
  117.  12e   de005555      21845
  118.  132       afc0      OVER NOT 
  119.  134   de005555      21845
  120.  138       afc2      OVER NOT 2* 
  121.  13a       a020      NOP 
  122.                   ;
  123.                   
  124.                   SHIFT_OPTIONAL
  125.  13c       acc0      OVER OVER - 
  126.  13e       acc7      OVER OVER - 2/ 
  127.  140       a400      OVER - 
  128.  142       a407      OVER - 2/ 
  129.  144       ac40      - 
  130.  146       ac47      - 2/ 
  131.  148       ac80      SWAP OVER - 
  132.  14a       ac87      SWAP OVER - 2/ 
  133.  14c       a100      NOT 
  134.  14e       a107      NOT 2/ 
  135.  150       a020      NOP 
  136.                   ;
  137.                   
  138.                   INVERT_OPTIONAL
  139.  152       be55      21 
  140.  154       bf55      21 NOT 
  141.  156       bf49      -10 
  142.  158       be49      -10 NOT 
  143.  15a       bed5      21 SWAP DROP 
  144.  15c       bfd5      21 SWAP DROP NOT 
  145.  15e       bfc9      -10 SWAP DROP 
  146.  160       bec9      -10 SWAP DROP NOT 
  147.  162       bed5      DROP 21 
  148.  164       bfd5      DROP 21 NOT 
  149.  166       bfc9      DROP -10 
  150.  168       bec9      DROP -10 NOT 
  151.  16a   a0c0be55      DUP 21 
  152.  16e   a0c0bf55      DUP 21 NOT 
  153.  172       c015      21 u@ SWAP 
  154.  174       c115      21 u@ SWAP NOT 
  155.  176       ce15      21 u@ 
  156.  178       cf15      21 u@ NOT 
  157.  17a   a0c0ce15      DUP 21 u@ 
  158.  17e   a0c0cf15      DUP 21 u@ NOT 
  159.  182       c095      DUP 21 u! 
  160.  184       c195      DUP 21 u! NOT 
  161.  186       ce95      21 u! 
  162.  188       cf95      21 u! NOT 
  163.  18a       e000      @ SWAP 
  164.  18c       e100      @ SWAP NOT 
  165.  18e       f000      c@ SWAP 
  166.  190       f100      c@ SWAP NOT 
  167.  192       ee00      @ 
  168.  194       ef00      @ NOT 
  169.  196       fe00      c@ 
  170.  198       ff00      c@ NOT 
  171.  19a   a0c0ee00      DUP @ 
  172.  19e   a0c0ef00      DUP @ NOT 
  173.  1a2   a0c0fe00      DUP c@ 
  174.  1a6   a0c0ff00      DUP c@ NOT 
  175.  1aa   e140be55      DUP @ SWAP 21 
  176.  1ae   e140bf55      DUP @ SWAP 21 NOT 
  177.  1b2   f140be55      DUP c@ SWAP 21 
  178.  1b6   f140bf55      DUP c@ SWAP 21 NOT 
  179.  1ba   a040ee00      SWAP DROP @ 
  180.  1be   a040ef00      SWAP DROP @ NOT 
  181.  1c2   a040fe00      SWAP DROP c@ 
  182.  1c6   a040ff00      SWAP DROP c@ NOT 
  183.  1ca   a080ee00      SWAP DROP DUP @ 
  184.  1ce   a080ef00      , SWAP DROP DUP @ NOT 
  185.  1d2   a080fe00      SWAP DROP DUP c@ 
  186.  1d6   a080ff00      , SWAP DROP DUP c@ NOT 
  187.  1da   e040be55      SWAP DROP DUP @ SWAP 21 
  188.  1de   e040bf55      SWAP DROP DUP @ SWAP 21 NOT 
  189.  1e2   f040be55      SWAP DROP DUP c@ SWAP 21 
  190.  1e6   f040bf55      SWAP DROP DUP c@ SWAP 21 NOT 
  191.  1ea       e080      OVER SWAP ! 
  192.  1ec       e180      OVER SWAP ! NOT 
  193.  1ee       f080      OVER SWAP c! 
  194.  1f0       f180      OVER SWAP c! NOT 
  195.  1f2   e1c0be55      SWAP OVER ! 21 
  196.  1f6   e1c0bf55      SWAP OVER ! 21 NOT 
  197.  1fa   f1c0be55      SWAP OVER c! 21 
  198.  1fe   f1c0bf55      SWAP OVER c! 21 NOT 
  199.  202   e0c0be55      OVER OVER ! 21 
  200.  206   e0c0bf55      OVER OVER ! 21 NOT 
  201.  20a   f0c0be55      OVER OVER c! 21 
  202.  20e   f0c0bf55      OVER OVER c! 21 NOT 
  203.  212       ee80      ! 
  204.  214       ef80      ! NOT 
  205.  216       fe80      c! 
  206.  218       ff80      c! NOT 
  207.  21a       a020      NOP 
  208.                   ;
  209.                   
  210.                   TERMINAL
  211.  21c       bc55      21 OVER - 
  212.  21e       b455      DUP 21 - 
  213.  220       b4d5      21 - 
  214.  222       cc15      21 u@ OVER - 
  215.  224       c415      DUP 21 u@ - 
  216.  226       c495      21 u@ - 
  217.  228       ec00      @ OVER - 
  218.  22a       fc00      c@ OVER - 
  219.  22c       e140      DUP @ SWAP 
  220.  22e       f140      DUP c@ SWAP 
  221.  230       e040      , SWAP DROP DUP @ SWAP 
  222.  232       f040      , SWAP DROP DUP c@ SWAP 
  223.  234       ef55      @ 21 
  224.  236       ff55      c@ 21 
  225.  238       ee55      SWAP DROP @ 21 
  226.  23a       fe55      SWAP DROP c@ 21 
  227.  23c       e555      DUP @ SWAP 21 - 
  228.  23e       f555      DUP c@ SWAP 21 - 
  229.  240       e455      SWAP DROP DUP @ SWAP 21 - 
  230.  242       f455      SWAP DROP DUP c@ SWAP 21 - 
  231.  244       e942      @+ 
  232.  246       f941      c@+ 
  233.  248       e542      @- 
  234.  24a       f541      c@- 
  235.  24c       e842      SWAP DROP @+ 
  236.  24e       f841      SWAP DROP c@+ 
  237.  250       e442      SWAP DROP @- 
  238.  252       f441      SWAP DROP c@- 
  239.  254       e480      @ - 
  240.  256       f480      c@ - 
  241.  258       e1c0      SWAP OVER ! 
  242.  25a       f1c0      SWAP OVER c! 
  243.  25c       e0c0      OVER OVER ! 
  244.  25e       f0c0      OVER OVER c! 
  245.  260       efd5      ! 21 
  246.  262       ffd5      c! 21 
  247.  264       eed5      OVER SWAP ! 21 
  248.  266       fed5      OVER SWAP c! 21 
  249.  268       e9c2      !+ 
  250.  26a       f9c1      c!+ 
  251.  26c       e5c2      !- 
  252.  26e       f5c1      c!- 
  253.  270       e8c2      OVER SWAP !+ 
  254.  272       f8c1      OVER SWAP c!+ 
  255.  274       e4c2      OVER SWAP !- 
  256.  276       f4c1      OVER SWAP c!- 
  257.  278       e5d5      SWAP OVER ! 21 - 
  258.  27a       f5d5      SWAP OVER c! 21 - 
  259.  27c       e4d5      OVER OVER ! 21 - 
  260.  27e       f4d5      OVER OVER c! 21 - 
  261.  280       a020      NOP 
  262.                   ;
  263.                   
  264.                   G_TYPES
  265.  282       b015      21 g@ DROP 
  266.  284       b115      21 g@ DROP NOT 
  267.  286       be15      21 g@ 
  268.  288       bf15      21 g@ NOT 
  269.  28a   a0c0be15      DUP 21 g@ 
  270.  28e   a0c0bf15      DUP 21 g@ NOT 
  271.  292       b095      DUP 21 g! 
  272.  294       b195      DUP 21 g! NOT 
  273.  296       be95      21 g! 
  274.  298       bf95      21 g! NOT 
  275.  29a       bc15      21 g@ OVER - 
  276.  29c       b415      DUP 21 g@ - 
  277.  29e       b495      21 g@ - 
  278.  2a0       a020      NOP 
  279.                   ;
  280.                   
  281.                   LONG_CONSTANTS
  282.  2a2   d0005555      21845 SWAP 
  283.  2a6   d1005555      21845 SWAP NOT 
  284.  2aa   de005555      21845 
  285.  2ae   df005555      21845 NOT 
  286.  2b2   de805555      21845 SWAP DROP 
  287.  2b6   df805555      21845 SWAP DROP NOT 
  288.  2ba   de805555      DROP 21845 
  289.  2be   df805555      DROP 21845 NOT 
  290.  2c2       a0c0      DUP
  291.  2c4   de005555      21845 
  292.  2c8       a0c0      DUP
  293.  2ca   df005555      21845 NOT 
  294.  2ce   d4805555      21845 - 
  295.  2d2   d4005555      DUP 21845 - 
  296.  2d6   dc005555      21845 OVER - 
  297.  2da       9171      BRANCH over STRING
  298.  2dc        474      LIT '.'  't'
  299.  2de       6573      LIT 'e'  's'
  300.  2e0       7400      LIT 't'  '.'
  301.  2e2   de0002dc      732 
  302.  2e6       9177      BRANCH over STRING
  303.  2e8        474      LIT '.'  't'
  304.  2ea       6573      LIT 'e'  's'
  305.  2ec       7400      LIT 't'  '.'
  306.  2ee   df0002e8      744 NOT 
  307.  2f2   de000020      ['] ALU_OPS 
  308.  2f6   df000020      ['] ALU_OPS NOT 
  309.  2fa   de000308      ['] TEST4 
  310.  2fe   df000308      ['] TEST4 NOT 
  311.  302       a020      NOP 
  312.                   ;
  313.                   
  314.                   TEST2
  315.  304       a020      exit
  316.                      exit
  317.                      exit
  318.                   ;
  319.                   
  320.                   TEST3
  321.  306       a120      NOT 
  322.                   ;
  323.                   
  324.                   TEST4
  325.  308       be61      1 
  326.                   ;
  327.                   
  328.                   TEST5
  329.  30a       be20      0 g@ 
  330.                      exit
  331.  30c       be01      1 g@ 
  332.  30e       a020      exit
  333.  310       be22      2 g@ 
  334.                   ;
  335.                   
  336.                   TEST6
  337.  312       bea0      0 g! 
  338.                      exit
  339.  314       be81      1 g! 
  340.  316       a020      exit
  341.  318       bea2      2 g! 
  342.                   ;
  343.                   
  344.                   TEST7
  345.  31a       be23      3 g@ 
  346.                      exit
  347.  31c       bea3      3 g! 
  348.                      exit
  349.  31e       be24      4 g@ 
  350.                   ;
  351.                   
  352.                   TEST8
  353.  320   de205555      21845 
  354.                      exit
  355.  324   de205555      21845 
  356.                   ;
  357.                   
  358.                   TEST9
  359.  328       aea0      SWAP 
  360.                   ;
  361.                   
  362.                   TEST10
  363.  32a       89a5      IF
  364.  32c       89a5         IF
  365.  32e       89a5            IF
  366.  330       89a5               IF
  367.  332       89a5                  IF
  368.  334       89a5                     IF
  369.  336       89a5                        IF
  370.  338       89a2                           IF
  371.  33a       89a0                              IF
  372.  33c       a000                                 NOP 
  373.  33e       91a1                              ELSE
  374.  340       a000                                 NOP 
  375.                                              THEN
  376.  342       91a3                           ELSE
  377.  344       a000                              NOP 
  378.                                           THEN
  379.  346       89a5                           IF
  380.  348       a000                              NOP 
  381.                                           THEN
  382.                                        THEN
  383.                                     THEN
  384.                                  THEN
  385.                               THEN
  386.                            THEN
  387.                         THEN
  388.                      THEN
  389.  34a       a020   ;
  390.                   
  391.                   TEST12
  392.  34c   be8191c1      FOR
  393.  350   be8191c0         FOR
  394.  354   be8191bf            FOR
  395.  358   be8191be               FOR
  396.  35c   be8191bd                  FOR
  397.  360   be8191bc                     FOR
  398.  364   be8191bb                        FOR
  399.  368   be8191ba                           FOR
  400.  36c   be8191b9                              FOR
  401.  370       a000                                 NOP 
  402.  372       99b8                              NEXT
  403.  374       99b6                           NEXT
  404.  376       99b4                        NEXT
  405.  378       99b2                     NEXT
  406.  37a       99b0                  NEXT
  407.  37c       99ae               NEXT
  408.  37e       99ac            NEXT
  409.  380       99aa         NEXT
  410.  382       99a8      NEXT
  411.  384       a020   ;
  412.                   
  413.                   TABLE1  {
  414.  386        304      ADDRESS of TEST2
  415.  388        306      ADDRESS of TEST3
  416.  38a        308      ADDRESS of TEST4
  417.  38c          0      DATA
  418.  38e          1      DATA
  419.  390          2      DATA
  420.  392          3      DATA
  421.  394       ffff      DATA
  422.  396       fffe      DATA
  423.  398       fffd      DATA
  424.  39a        3aa      ADDRESS of TEST11
  425.                   }
  426.                   
  427.                   TABLE2  {
  428.  39c        102      BYTE, BYTE
  429.  39e        304      BYTE, BYTE
  430.  3a0        506      BYTE, BYTE
  431.  3a2        700      BYTE
  432.                   }
  433.                   
  434.                   TABLE3  {
  435.  3a4        386      ADDRESS of TABLE1
  436.  3a6        39c      ADDRESS of TABLE2
  437.  3a8        3a4      ADDRESS of TABLE3
  438.                   }
  439.                   
  440.                   TEST11
  441.                      BEGIN
  442.                         BEGIN
  443.                            BEGIN
  444.                               BEGIN
  445.                                  BEGIN
  446.                                     BEGIN
  447.                                        BEGIN
  448.  3aa       91d5                        AGAIN
  449.  3ac       91d5                     AGAIN
  450.  3ae       91d5                  AGAIN
  451.  3b0       91d5               AGAIN
  452.  3b2       91d5            AGAIN
  453.  3b4       91d5         AGAIN
  454.  3b6       91d5      AGAIN
  455.                      BEGIN
  456.                         BEGIN
  457.                            BEGIN
  458.                               BEGIN
  459.                                  BEGIN
  460.                                     BEGIN
  461.                                        BEGIN
  462.  3b8       89dc                        UNTIL
  463.  3ba       89dc                     UNTIL
  464.  3bc       89dc                  UNTIL
  465.  3be       89dc               UNTIL
  466.  3c0       89dc            UNTIL
  467.  3c2       89dc         UNTIL
  468.  3c4       89dc      UNTIL
  469.                      BEGIN
  470.                         BEGIN
  471.                            BEGIN
  472.                               BEGIN
  473.                                  BEGIN
  474.                                     BEGIN
  475.                                        BEGIN
  476.  3c6       89e5                        WHILE
  477.  3c8       91e3                        REPEAT
  478.  3ca       89e7                     WHILE
  479.  3cc       91e3                     REPEAT
  480.  3ce       89e9                  WHILE
  481.  3d0       91e3                  REPEAT
  482.  3d2       89eb               WHILE
  483.  3d4       91e3               REPEAT
  484.  3d6       89ed            WHILE
  485.  3d8       91e3            REPEAT
  486.  3da       89ef         WHILE
  487.  3dc       91e3         REPEAT
  488.  3de       89f1      WHILE
  489.  3e0       91e3      REPEAT
  490.  3e2       a020      NOP 
  491.                   ;
  492.                   
  493.